   5 .DUNGEON DUST
NT=0;CLEAR 
   1 .
   2 .
   3 .
   4 .
   5 .DUNGEON DUST
   6 .(C)1980 R.C. TIETJENS
   7 :RETURN ;&(9)=6;BC=0;FC=BC;&(0)=0;&(1)=0;&(2)=100;&(3)=100;GOTO 200
  10 BONES
  11 WEBS
  12 DUST
  13 FUNGUS
  14 FOOD
  15 COIN
  16 CHAIN
  17 OFFAL
  18 STRAW
  19 CLOTH
  20 STICKS
  21 STONES
  22 ASHES
  23 MESSAGE
  24 BUGS
  25 MICE
  26 SNAKE
  27 SKELETON
  28 MAGGOTS
  29 TORCH
  30 DAGGER
  31 TORCH
  32 SHIELD
  33 STRING
  34 HAIRS
  35 CANDLE
  36 BUTTON
  37 QUAIL
  38 BOOT
  39 CHEST
  40 PINS
  41 SPIKE
  42 MUZZLE
  43 FOOTSTOOL
  44 GLASS
  45 MIRROR
  46 RUG
  47 STRAP
  48 CRUMBS
  49 LETTER
  50 ROPE
  51 TEN FT. POLE
  52 CORPSE
  53 INSCRIPTION
  54 STONES
  55 WATER
  56 SPEAR
  57 STICKS
  58 GRAVE
  59 MICE
  60 SPIDERS
  61 BOW
  62 GEODE
  63 BACKPACK
  64 TORCH
  65 ARROWHEAD
  66 BREECHES
  67 CLUB
  68 PIPEWEED
  69 CAPE
  70 DAGGER
  71 SM. SACK
  72 WINE SKIN
  73 LANTERN
  74 FLASK OF OIL
  75 STEEL MIRROR
  76 SWORD
  77 BOOTS
  78 CLOAK
  79 HELMET
  80 GARLIC BUD
  81 IRON RATION
  82 HAND AX
  83 QUIVER
  84 CUP
  85 PLATE
  86 QUILL & INKPOT
  87 TRUNK
  88 CHEST
  89 COIN
 100 TABLE
 101 CHAIR
 102 COAT RACK
 103 ARMS RACK
 104 CABINET
 105 TRUNK
 106 THRONE
 107 STOOL
 108 ROCKER
 109 CAGE
 110 DESK
 111 TABLE
 112 CHEST
 113 BOX
 114 BARREL
 115 RUG
 116 DIVAN
 117 CAULDRON
 118 WASHTUB
 119 BED
 200 CLEAR 
 205 *PRINT ;NT=1
 210 PRINT "      DUNGEON DUST
 220 PRINT ;PRINT ;PRINT "     1 - CORRIDOR
 230 PRINT "     2 - CHAMBER
 240 PRINT "     3 - CAVERN
 250 PRINT "     4 - ROOM
 260 PRINT "     5 - FURNITURE
 265 PRINT ;PRINT 
 270 FOR Z=0TO 500
 275 B=0
 280 IF &(23)=8 B=1
 290 IF &(22)=8 B=2
 300 IF &(21)=8 B=3
 310 IF &(23)=4 B=4
 320 IF &(22)=4 GOTO 500
 330 IF BLIST (B×20-10+RND (20)-1),1
 340 IF &(22)=16RUN 
 350 NEXT Z;FC=1;&(9)=41;GOTO 200
 500 &(9)=41;FC=7;CLEAR ;INPUT "AREA WIDTH?"W
 510 INPUT "LENGTH?"L
 515 CLEAR ;FC=0;&(9)=6
 520 P=L×W÷100;FOR T=1TO P
 530 LIST (100+RND (20)-1),1;NEXT T;GOTO 270
 540 STOP
:RETURN ;RUN 
